home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / testfiles / TestARexx < prev    next >
Encoding:
Text File  |  2004-01-31  |  598 b   |  24 lines
  1. atalk  <- amigatalk
  2. atags  <- ARexxTags new
  3. myport <- ARexxPort new
  4.  
  5. (' ') print
  6. ('Executing the TestARexx file...') print
  7.  
  8. atalk setIOTitle:    'Testing ARexxPort Class:'
  9. atalk setIOMessage:  'This test will mimic the selection of'
  10. atalk displayString: 'the "Workbench About" menu item via ARexx'
  11.  
  12. myActionCode <- atags arexxTag: #RXCOMM
  13. myActionCode <- myActionCode + (atags arexxTag: #RXFF_STRING)
  14.  
  15. myport open: 'ChkARexxPort'
  16.  
  17. myport setRMAction: myActionCode
  18.  
  19. myport sendRexxCmd: 'ADDRESS workbench;"MENU Window root INVOKE WORKBENCH.ABOUT"'
  20.  
  21. myport close
  22.  
  23. ('Finished with TestARexx!!') print
  24.